<%
'On Error Resume Next
'不要修改此文件的文件名，否则运行出错
'不要修改此文件的格式，否则运行出错
'JFData 表示您的数据库名称
JFData="manageNews/data/xunt.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& Server.MapPath(JFData)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq="
& Server.MapPath(db)
conn.Open connstr function ProgramErr()
if err<>0 then
response.write"<script>alert('很抱歉程序发生错误，请正确重试操作\n如无法解决请与我联系\n\nQQ：3184853
\nEmail：Xunt@163.com\n电话：13077713722\n\n错误代码："&err.Number&"\n错误来源："&
Err.Source&"\n错误描述："& Err.Description&"\n\n
渐飞在线\n www.xunt.net')</script>"
end if
err.clear
Conn.close
Set conn = Nothing
End Function
%>
把以上红色文字修改成如下即可：
JFData="manageNews/data/(*&Jfd@#456.asp"
|
